﻿Imports VN.INS.DL.DALC
Imports VN.INS.BL.BE
Public Class UsuarioBC
    
    Public Function ListaUsuario() As DataTable
        Dim objUsuarioDA As UsuarioDA
        Dim objDt As DataTable

        Try
            objUsuarioDA = New UsuarioDA
            objDt = objUsuarioDA.ListaUsuario()
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaUsuario(ByVal strUser As String, ByVal strPass As String) As DataTable
        Dim objUsuarioDA As UsuarioDA
        Dim objDt As DataTable
        Try
            objUsuarioDA = New UsuarioDA
            objDt = objUsuarioDA.ListaUsuario(strUser, strPass)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaUsuarioperfil(ByVal id As String, ByVal persona As String) As DataTable
        Dim objUsuarioDA As UsuarioDA
        Dim objDt As DataTable
        Try
            objUsuarioDA = New UsuarioDA
            objDt = objUsuarioDA.ListaUsuarioperfil(id, persona)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaMonitoreadorMantPoa(ByVal strCodPPER As String) As DataTable
        Dim objUsuarioDA As UsuarioDA
        Dim objDt As DataTable
        Try
            objUsuarioDA = New UsuarioDA
            objDt = objUsuarioDA.ListaMonitoreadorMantPoa(strCodPPER)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try

    End Function

    Public Function ListaEspecialistaMantPoa(ByVal strCodPPER As String) As DataTable
        Dim objUsuarioDA As UsuarioDA
        Dim objDt As DataTable
        Try
            objUsuarioDA = New UsuarioDA
            objDt = objUsuarioDA.ListaEspecialistaMantPoa(strCodPPER)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try

    End Function
End Class
